home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 031a / wind501.zip / UMMS.PRG < prev   
Text File  |  1991-11-25  |  4KB  |  198 lines
  1. CLOSE ALL
  2. CLEAR
  3. MSG=SPACE(60)
  4.  
  5. DO WHILE .T.
  6.  
  7. @  0,  1  TO  3, 78    DOUBLE
  8.  
  9. FRM=CHR(201)+CHR(205)+CHR(187)+CHR(186) + ;
  10.     CHR(188)+CHR(205)+CHR(200)+CHR(186) + ;
  11.     CHR(176) 
  12.  
  13. @  4,  1, 20, 78  BOX FRM     
  14.  
  15. @  1,  3  SAY "Version: 1.00         Clinical Engineering Equiptment"
  16. @  1, 68  SAY  DATE()
  17. @  2,  3  SAY "User Name:"
  18.  
  19. @  5,  4  CLEAR TO 16, 38
  20. @  7,  4  TO 16, 38    DOUBLE
  21. @  5,  4  TO 16, 38    DOUBLE
  22.  
  23. STORE 1 TO MOPT
  24. SET MESSAGE TO 22
  25.  
  26. @  6, 15  SAY "Main Menu"
  27. @  8,  6  PROMPT "A. Work Order Maintenance" ;
  28.           MESSAGE MSG_CTR("Add, Edit, Delete, Information on Work Orders")
  29. @  9,  6  PROMPT "B. Equiptment File Maintenance" ;
  30.           MESSAGE MSG_CTR("Add, Edit, Delete, Information on Equiptment")
  31. @ 10,  6  PROMPT "C. Support Databases Menu" ;
  32.           MESSAGE MSG_CTR("Add, Edit, Delete, Information on Support")
  33. @ 11,  6  PROMPT "D. Reference Databases Menu" ;
  34.           MESSAGE MSG_CTR("Add, Edit, Delete, Information on References")
  35. @ 12,  6  PROMPT "E. Reports Menu" ;
  36.           MESSAGE MSG_CTR("Reporting Functions")
  37. @ 13,  6  PROMPT "F. Communications Menu" ;
  38.           MESSAGE MSG_CTR("Add, Edit, Delete, Information on Communications")
  39. @ 14,  6  PROMPT "G. Utilities Menu" ;
  40.           MESSAGE MSG_CTR("Utilitiy Functions")
  41. @ 15,  6  PROMPT "X. Exit System"
  42. @ 22,  4  SAY MSG
  43.  
  44. MENU TO MOPT
  45.  
  46. DO CASE
  47.    CASE MOPT = 1
  48.         MOPT_1('Work Orders','A')
  49.  
  50.    CASE MOPT = 2
  51.         MOPT_1('Equiptment','B')
  52.  
  53.    CASE MOPT = 3
  54.         MOPT_1('Support','C')
  55.  
  56.    CASE MOPT = 4
  57.         MOPT_1('Reference','D')
  58.  
  59.    CASE MOPT = 5
  60.         MOPT_1('Reports','E')
  61.  
  62.    CASE MOPT = 6
  63.         MOPT_1('Communications','F')
  64.  
  65.    CASE MOPT = 7
  66.         MOPT_1('Utilities','G')
  67.  
  68.    CASE MOPT= 8  .OR. MOPT = 0
  69.         CLOSE ALL
  70.         CLEAR
  71.         RETURN
  72.  
  73. ENDCASE
  74.  
  75. ENDDO
  76.  
  77. FUNCTION MSG_CTR
  78.  
  79.      PARAMETERS STRING
  80.  
  81.      STORE (78 - LEN(STRING)) / 2 TO TEMP
  82.  
  83.      IF 2 * TEMP + LEN(STRING) < 78
  84.         RETURN (SPACE(TEMP) + STRING + SPACE(TEMP)+" ")
  85.      ENDIF
  86.  
  87. RETURN (SPACE(TEMP) + STRING + SPACE(TEMP))
  88.  
  89.  
  90. PROCEDURE MOPT_1
  91.  
  92. PARAMETERS mNAME, mTYPE
  93.  
  94. save screen
  95.  
  96. do while .t.
  97.  
  98. @  21,  0  CLEAR TO 23, 79
  99. @  7,  9  CLEAR TO 18, 45
  100. @  9,  9  TO 18, 45    DOUBLE
  101. @  7,  9  TO 18, 45    DOUBLE
  102.  
  103. STORE 1 TO MOPT
  104. SET MESSAGE TO 22
  105.  
  106. @ 08, 20  SAY mNAME+" Menu"
  107. @ 10, 11  PROMPT "A. "+mNAME+" Adds"  
  108. @ 11, 11  PROMPT "B. "+mNAME+" Changes"  
  109. @ 12, 11  PROMPT "C. "+mNAME+" Deletes"  
  110. @ 13, 11  PROMPT "D. "+mNAME+" Reports"  
  111. @ 14, 11  PROMPT "E. "+mNAME+" Lists"
  112. @ 15, 11  PROMPT "F. "+mNAME+" Utilities"
  113. @ 16, 11  PROMPT "G. "+mNAME+" Other"
  114. @ 17, 11  PROMPT "X. Exit to Main Menu"
  115.  
  116. MENU TO MOPT
  117.  
  118. DO CASE
  119.  
  120.    CASE MOPT > 0 .AND. MOPT < 8
  121.         MOPT_2(MOPT, MTYPE)
  122.  
  123.    CASE MOPT= 8  .OR. MOPT = 0
  124.         restore screen
  125.         return
  126.  
  127. ENDCASE
  128.  
  129. enddo
  130.  
  131. return
  132.  
  133.  
  134. PROCEDURE MOPT_2
  135.  
  136.  
  137. PARAMETERS M2, M3
  138.  
  139. M2=STR(M2,1)
  140.  
  141. DO CASE
  142.  
  143.     CASE M3 = 'A'
  144.          WRK_&M2()
  145.  
  146.     CASE M3 = 'B'
  147.          EQU_&M2()
  148.  
  149.     CASE M3 = 'C'
  150.          SUP_&M2()
  151.  
  152.     CASE M3 = 'D'
  153.          REF_&M2()
  154.  
  155.     CASE M3 = 'E'
  156.          RPT_&M2()
  157.  
  158.     CASE M3 = 'F'
  159.          COM_&M2()
  160.  
  161.     CASE M3 = 'G'
  162.          UTL_&M2()
  163.  
  164. ENDCASE
  165.  
  166. RETURN
  167.  
  168.  
  169.  
  170.  
  171. PROCEDURE WRK_1
  172. RETURN
  173.  
  174.  
  175. PROCEDURE WRK_2
  176. RETURN
  177.  
  178.  
  179. PROCEDURE WRK_3
  180. RETURN
  181.  
  182.  
  183. PROCEDURE WRK_4
  184. RETURN
  185.  
  186.  
  187. PROCEDURE WRK_5
  188. RETURN
  189.  
  190.  
  191. PROCEDURE WRK_6
  192. RETURN
  193.  
  194.  
  195. PROCEDURE WRK_7
  196. RETURN
  197.  
  198.